home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
ghostscr
/
ghostscr.zip
/
SCREEN.PS
< prev
next >
Wrap
Text File
|
1993-08-03
|
772b
|
47 lines
% Test a tilted halftone screen.
/dot1
{ dup mul exch dup mul add 1 exch sub
} bind def
/dot2
{ exch abs exch abs 2 copy le { exch } if
exch 1 sub dup mul exch dup mul add 1 exch sub
} bind def
72 72 scale
0 setlinewidth
/tiles {
0 1 7
{ /y exch def
0 1 7
{ /x exch def
x y moveto
1 0 rlineto 0 1 rlineto -1 0 rlineto closepath
gsave y 8 mul x add 63 div setgray fill grestore
0 setgray stroke
} for
} for
} bind def
gsave
2.3 22 /dot1 load setscreen
currentscreen pop == pop
tiles showpage
grestore
gsave
2.3 45 /dot1 load setscreen
currentscreen pop == pop
tiles showpage
grestore
gsave
2.3 45 /dot2 load setscreen
currentscreen pop == pop
tiles showpage
grestore
quit